#!/usr/bin/runghc

module Test where

import System.Directory
import Language.Java.Parser(java,alexScanTokens2)
import System.FilePath.Glob

main :: IO ()
main = do
  files <- globDir1 (compile "*.java") "examples" 
  mapM (test) files
  return ()


test :: FilePath -> IO ()
test fp = do
  src <- readFile fp
  putStrLn $ "********************   testing "++ fp ++"********************"
  putStrLn $ show $ java $ alexScanTokens2 src
  return ()


